unit frmFirmEmployee;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, 
  Dialogs, cxGraphics, cxControls, cxLookAndFeels, cxLookAndFeelPainters,
  dxSkinsCore, dxSkinOffice2007Black, frmCustomList, frmEmployeeList,
  cxSplitter, frmFirmStructTree;

type
  TFirmEmployeeFrame = class(TFrame)
    FirmStructTreeFrame: TFirmStructTreeFrame;
    cxSplitter2: TcxSplitter;
    EmployeeListFrame: TEmployeeListFrame;
  private
    { Private declarations }
  public
    { Public declarations }
    procedure RefreshData;
    constructor Create(AOwner: TComponent); override;
  end;

implementation

{$R *.dfm}

{ TFirmEmployeeFrame }

constructor TFirmEmployeeFrame.Create(AOwner: TComponent);
begin
  inherited;
  EmployeeListFrame.tblList.MasterSource := FirmStructTreeFrame.dsDepartment;
end;

procedure TFirmEmployeeFrame.RefreshData;
begin
  FirmStructTreeFrame.tvDepartment.FullExpand;
end;

end.
